home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
e
/
ddmoduls.lha
/
dd_Modules
/
dd_libraries
/
dd_sharedlibs.lha
/
dd_sharedlibs.e
next >
Wrap
Text File
|
1995-02-26
|
2KB
|
89 lines
-> dd_sharedlibs.e
-> FOLD OPTS
OPT MODULE
-> ENDFOLD
-> FOLD MODULES
MODULE 'asl'
MODULE 'amigaguide'
MODULE 'utility'
MODULE 'utility/tagitem'
-> ENDFOLD
-> FOLD OBJECTS
EXPORT OBJECT sharedlibs PRIVATE
ENDOBJECT
EXPORT DEF libs:PTR TO sharedlibs
-> ENDFOLD
-> FOLD new
EXPORT PROC new(tags:PTR TO tagitem) OF sharedlibs
IF amigaguidebase=NIL
amigaguidebase:=OpenLibrary('amigaguide.library',37)
ENDIF
IF aslbase=NIL
aslbase:=OpenLibrary('asl.library',37)
ENDIF
ENDPROC
-> ENDFOLD
-> FOLD end
EXPORT PROC end() OF sharedlibs
IF amigaguidebase
CloseLibrary(amigaguidebase)
amigaguidebase:=NIL
ENDIF
IF aslbase
CloseLibrary(aslbase)
aslbase:=NIL
ENDIF
ENDPROC
-> ENDFOLD
-> FOLD future
/* Future expansion that allows run-time opens/closes on libraries. */
/*
EXPORT PROC new(tags:PTR TO tagitem) OF sharedlibs
DEF tag
IF self.utility=FALSE
utilitybase:=OpenLibrary('utility.library',0)
self.utility:=TRUE
EXPORT PROC use(tags:PTR TO tagitem) OF sharedlibs
IF (libs AND DD_LIBF_AMIGAGUIDE)
IF amigaguidebase=NIL
amigaguidebase:=OpenLibrary('amigaguide.library',37)
ENDIF
self.amigaguide.users:=self.amigaguide.users+1
ENDIF
IF (libs AND DD_LIBF_ASL)
IF aslbase=NIL
aslbase:=OpenLibrary('asl.library',37)
ENDIF
self.asl.users:=self.asl.users+1
ENDIF
ENDPROC
EXPORT PROC free(tagitems) OF sharedlibs
IF (libs AND DD_LIBF_AMIGAGUIDE)
self.amigaguide.users:=self.amigaguide.users-1
IF self.amigaguide.users=0
CloseLibrary(amigaguidebase)
ENDIF
ENDIF
IF (libs AND DD_LIBF_ASL)
self.asl.users:=self.asl.users-1
IF self.asl.users=0
CloseLibrary(aslbase)
ENDIF
ENDIF
ENDPROC
*/
-> ENDFOLD